(Fchar_equal): Check they are valid characters.

diff --git a/src/ChangeLog b/src/ChangeLog
index ceaa1e81c0c6218dabbc58b61eeda9edccdd0ef7..c9bb095afeae0c4d0b404f4b417ba72b82501d29 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2008-03-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * editfns.c (Fchar_equal): Check they are valid characters.
+
        * buffer.h (Fbuffer_list): Declare (for use in callint.c).
 
 2008-03-17  Andreas Schwab  <schwab@suse.de>

diff --git a/src/editfns.c b/src/editfns.c
index 0ab1630df3c8b8c63337c26831b082ed502e4a9c..264097ffe5966b0ea6dfe7c3a027aa2aebfadfb5 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4185,8 +4185,10 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.  */)
      register Lisp_Object c1, c2;
 {
   int i1, i2;
-  CHECK_NUMBER (c1);
-  CHECK_NUMBER (c2);
+  /* Check they're chars, not just integers, otherwise we could get array
+     bounds violations in DOWNCASE.  */
+  CHECK_CHARACTER (c1);
+  CHECK_CHARACTER (c2);
 
   if (XINT (c1) == XINT (c2))
     return Qt;